home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 73 / 073.d81 / diskmate loader (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  45 lines
  1. 0 rem"diskmate 1.11 loader (c64)      "
  2. 1 rem"copyright (c)1990 j. perregaux  "
  3. 2 rem"published by softdisk inc.      "
  4. 3 rem
  5. 4 ifld>0then6
  6. 5 poke157,0:poke53265,11:poke649,10:poke648,196:print"[147]":poke648,4:gosub16:gosub9
  7. 6 ifld=0thenld=1:load"0:diskmate.chr",8,1
  8. 7 ifld=1thenld=2:load"0:diskmate.spr",8,1
  9. 8 poke792,149:poke793,3:load"0:diskmate.exe",8
  10. 9 print"[147][153]":poke53281,1:poke53280,5:x$="[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]":c$="[154][159][153][153][153][153][159][154][154][159][153][153][153][153][159][154]":d$="
  11. 10 [151]648,196:[153]"load":[151]648,4
  12. 11 [153]"";:[129]x[178]1[164][195](c$)[171]1:[153][202](c$,x,1)x$;:[130]:[153][202](c$,x,1)[200](x$,40)"cmdsaveclose
  13. 12 printleft$(d$,7)"[208]lease wait while [196]iskmate loads...":printleft$(d$,13)"[195]opyright ([195])1990 by [202]on [208]erregaux
  14. 13 [153][200](d$,19)"lenommodore 64 (NULL)ersion 1.11
  15. 14 printleft$(d$,25)tab(6)"[208]ublished by [211]oftdisk, [201]nc.
  16. 15 [151]53265,27:[142]
  17. 16 [151]53280,6:[151]53281,6:[129]x[178]0[164]127:[135]y:[151]828[170]x,y:[130]
  18. 17 [153]:[153]"load  (NULL)atn(NULL)(NULL)right$(NULL)chr$:":[153]"  tab(tab(tab(tab(tab(tab(tab(tab(
  19. 18 print"[153]  [196]iskmate 64 is designed to be a tool
  20. 19 [153]"for advanced programmers and is quite
  21. 20 print"capable of scrambling or erasing data
  22. 21 [153]"stored on a disk. right$t is advisable, if
  23. 22 print"you wish to experiment, to use a disk
  24. 23 [153]"of no value.
  25. 24 print"[196][207] [206][207][212] [213][211][197] [212][200][201][211] [208][210][207][199][210][193][205] [207][206] [217][207][213][210] [204][207][193][196][211][212][193][210]
  26. 25 [153]"onstr$right$(NULL)(NULL)(NULL)--(NULL)(NULL)(NULL) (NULL)right$chr$left$(NULL) str$val(NULL)(NULL)(NULL)(NULL)(NULL) (NULL)left$val(NULL)!!!":[153][163]17)"tab(tab(tab(tab(tab(tab(tab(
  27. 26 print"[153]  [193]s soon as [196]iskmate finishes loading,
  28. 27 [153]"remove your (NULL)oad(NULL)tar program disk from
  29. 28 print"the drive. [212]his way, there will be no
  30. 29 [153]"danger of accidentally erasing or else
  31. 30 print"seriously crippling this month's issue
  32. 31 [153]"of (NULL)oad(NULL)tar. (NULL)hank you.
  33. 32 print"  [208]ress ([210][197][212][213][210][206])[153] to load [196]iskmate":poke198,0
  34. 33 print"  [208]ress (f8)[153] to reboot [204]oad[211]tar
  35. 34 [151]53265,27:[151]788,52:[151]789,234:[151]792,4:[151]793,128
  36. 35 [161]x$:[139]x$[178]""[167]35
  37. 36 [139]x$[178][199](13)[167][151]53265,11:[153]"load":[142]
  38. 37 [139]x$[178]"restore"[167]39
  39. 38 [137]35
  40. 39 [159]15,8,15:[159]2,8,2,"0:hello connect,p,r":[132]15,x,x$,y,y:[160]2:[160]15:[139]x[177]20[167]35
  41. 40 [158]65418:[153]"loadload"[199](34)"hello connect"[199](34)",8":[151]198,2:[151]631,19:[151]632,131:[162]
  42. 41 [131]169,8,133,2,160,0,169,4,162,192,132,251,133,252,132,253,134,254,169,216,162,196,132,195,133,196,132,247,134,248,76,123,3,169,196,133,2,160,0,169,192,162
  43. 42 [131]4,132,251,133,252,132,253,134,254,169,196,162,216,132,195,133,196,132,247,134,248,177,251,145,253,177,195,145,247,200,208,245,230,252,230,254,230,196,230
  44. 43 [131]248,165,252,197,2,208,231,96,162,16,134,2,198,2,165,2,240,6,32,195,255,76,153,3,162,76,236,0,128,208,7,162,7,236,1,128,240,6,32,94,166,76,28,8,76,4,128
  45.